home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / manchest.lha / MANCHESTER / usenet / st80_pre4 / picture-editor / picture3.xpl < prev    next >
Text File  |  1993-07-24  |  3KB  |  45 lines
  1. (Picture basicNew instVarAt: 1 put: ((OrderedCollection new) add: 
  2. (PicElemGroup basicNew instVarAt: 1 put: (Point x: 13.0 y: 11.0); instVarAt: 2 
  3. put: ((OrderedCollection new) add: (PicElemForm basicNew instVarAt: 1 put: 
  4. (Point x: 46.0 y: -1.0); instVarAt: 2 put: (Form
  5.  
  6.     extent: 128@79
  7.     fromArray: #( 0 1 65534 0 0 0 511 65024 0 1 65534 0 0 0 511 65024 0 1 
  8. 65534 0 0 0 511 65024 0 1 65534 0 0 0 511 65024 0 1 65534 0 0 0 511 
  9. 65024 0 1 65534 0 0 0 511 65024 0 1 65534 0 0 0 511 65024 0 510 1 
  10. 65024 0 1 65024 510 0 510 1 65024 0 1 65024 510 0 510 1 65024 0 1 
  11. 65024 510 0 510 1 65024 0 1 65024 510 0 510 1 65024 0 1 65024 510 0 
  12. 510 1 65024 0 1 65024 510 0 510 1 65024 0 1 65024 510 0 510 1 65024 
  13. 0 1 65024 510 0 510 1 65024 0 1 65024 510 0 510 1 65024 0 1 65024 510 
  14. 0 510 1 65024 0 1 65024 510 0 510 1 65024 0 1 65024 510 0 510 1 65024 
  15. 0 1 65024 510 0 510 1 65024 0 1 65024 510 0 510 1 65024 0 1 65024 510 
  16. 0 510 1 65024 0 1 65024 510 1 65024 0 0 0 510 0 0 1 65024 0 0 0 510 0 0 
  17. 1 65024 0 0 0 510 0 0 1 65024 0 0 0 510 0 0 1 65024 0 0 0 510 0 0 1 65024 
  18. 0 0 0 510 0 0 1 65024 0 0 0 510 0 0 1 65024 0 0 0 510 0 0 510 0 0 0 1 65024 
  19. 0 0 510 0 0 0 1 65024 0 0 510 0 0 0 1 65024 0 0 510 0 0 0 1 65024 0 0 510 
  20. 0 0 0 1 65024 0 0 510 0 0 0 1 65024 0 0 510 0 0 0 1 65024 0 0 510 0 0 0 1 
  21. 65024 0 0 65535 65535 65025 65535 65535 65024 0 0 65535 65535 65025 
  22. 65535 65535 65024 0 0 65535 65535 65025 65535 65535 65024 0 0 65535 
  23. 65535 65025 65535 65535 65024 0 0 65535 65535 65025 65535 65535 65024 
  24. 0 0 65535 65535 65025 65535 65535 65024 0 0 65535 65535 65025 65535 
  25. 65535 65024 0 0 65535 65535 65025 65535 65535 65024 0 0 65024 0 510 0 
  26. 1 65024 0 0 65024 0 510 0 1 65024 0 0 65024 0 510 0 1 65024 0 0 65024 0 
  27. 510 0 1 65024 0 0 65024 0 510 0 1 65024 0 0 65024 0 510 0 1 65024 0 0 
  28. 65024 0 510 0 1 65024 0 0 65024 0 510 0 1 65024 0 0 65024 0 510 0 1 
  29. 65024 0 0 65024 0 510 0 1 65024 0 0 65024 0 510 0 1 65024 0 0 65024 0 510 
  30. 0 1 65024 0 0 65024 0 510 0 1 65024 0 0 65024 0 510 0 1 65024 0 0 65024 0 
  31. 510 0 1 65024 0 0 65024 0 510 0 1 65024 0 0 65025 65534 510 511 65025 
  32. 65024 0 0 65025 65534 510 511 65025 65024 0 0 65025 65534 510 511 65025 
  33. 65024 0 0 65025 65534 510 511 65025 65024 0 0 65025 65534 510 511 65025 
  34. 65024 0 0 65025 65534 510 511 65025 65024 0 0 65025 65534 510 511 65025 
  35. 65024 0 0 65025 65534 510 511 65025 65024 0 0 511 65535 65025 65535 
  36. 65534 0 0 0 511 65535 65025 65535 65534 0 0 0 511 65535 65025 65535 
  37. 65534 0 0 0 511 65535 65025 65535 65534 0 0 0 511 65535 65025 65535 65534 
  38. 0 0 0 511 65535 65025 65535 65534 0 0 0 511 65535 65025 65535 65534 0 0 0 
  39. 511 65535 65025 65535 65534 0 0 1)
  40.     offset: 0@0); yourself); add: (PicElemText basicNew instVarAt: 1 put: 
  41. (Point x: -1.0 y: 84.0); instVarAt: 2 put: '{\Huge I''m watching you}'; yourself); 
  42. yourself); yourself); yourself); instVarAt: 2 put: 1; instVarAt: 3 put: (Point x: 
  43. 223 y: 141); instVarAt: 4 put: (Point x: 0 y: 0); instVarAt: 5 put: nil; yourself)
  44.  
  45.